Cream of the Crop 22

home *** CD-ROM | disk | FTP | other *** search

/ Cream of the Crop 22 / Cream of the Crop 22.iso / educate / testsh.zip / CREATEST.BAS (.txt) < prev next >

Wrap

QuickBASIC Tokenized Source | 1996-09-18 | 57KB | 563 lines

AWAITKEY MENUn ERRORHANDLER GETA1 LS10* LS112 LS12: LS13B LS14J LS15R LS16Z LS17b LS18j LS19r LS20z LS29g GG101 GG119 GG12A GG13I GG14Q GG15Y GG16a GG17i GG18q GG19y GG30$ GG316 GG320 GETANOTHERe E120o DISPLAYx NULL_ CHOICE AWAITKEY2 QUIT, ENTERITG RETRIEVEIT MENU1 MENU2x SKIP1 SKIP2% GETANOTHER2 RDT36 SKIP3 COLOER CRSLIN PICK2 RDT6? RDT8r RDT10 RDT11 RDT12U SAVE2 SHAREWARE SHARWARE SHARWARE.002N SHAREWARE2F RD10T HPRINTe COMMANDS HOLDTHEN PRINTIT DISPLAY2( HOLDCODE TANDF> HEADER! NOT58 IFLPRINT SKIPLINE1) SKIPLINE2 SKIPLINE3 SKIPLINE5 SKIPLINE4 TALLYG SKIPHEADER3 SKIPHEADER2P SKIPHEADER1^ SKIPSPACES ADVANCE ANOTHERe LOCATE14< HELP6 CTHEN[ THENLOCATE SKIPNEXT UNKNOWN RDTXe FILLw SKIPTESTSCREEN CHANGETYPE NUMBERITS MOVE1 HELP1 entered version version. RETAIN PRTQ2 PRTQ3 PRTQ4 PRTQ5 PRTQ1; PRT13 PRTQ6 PRTQ7Y PRTQ8_ PRTQ9 PRTQ10 PRTQ11 PRTQ125 CETURNB ANSWERSO ANWERS PRINTIT2+ ANSWERS2 SKIPSPACES2 SKIPHEADER12 SKIPLINE12 SKIPHEADER22 SKIPLINE22 SKIPLINE32 SKIPHEADER32 HEADER2y SKIPLINE42 PRINTANSWERPAGE PRINTANSWERPAGENO BLANKS QUESTIONS] TIMETHROUGH PRINTIT3m TIMESTHROUGH TIMESTHRHOUGH TIMESTHROUGH1( TYPE2 FF11I FF12g PRTQ13q PRTQ14{ PRTQ15 PRTQ16 PRTQ17 PRTQ18Z PRTQ19 PRTQ20 PRTQ21 PRTQ22 PRTQ23 PRTQ24 PRTQ25 PRTQ26 PRTQ27 PRTQ28 AA12A BB10Q BB11X DD12F EE10V EE11^ EE12e HRETURNG II10' II11. II12C IRETURNn JJ10~ LL10, LL113 LL12s NN12! OO101 OO118 OO12x QQ12& RR106 RR11= RR12} TT12+ UU10; UU11B WW12) XX109 XX11@ ZZ128 AAA1A AAA2Z AAA3b AAA4j AAA6r AAA7z AAA10J AAA11R AAA12 BBB4L BBB9) BBB100 BBB11a BBB12 BBB6> ADVANCE2 TALLY2 FALSE MULTIPLE VT12n TIMESVTHROUGH VTVT1 VTVT2 VTVT3 VTVT4 TALY2 SKIPRESET RESET NEWNAME1 RESETIT RESET2d REENTER COPYQ COPYS[ REVERT SKIPPRTQ ANSWERS3 MOREA MOREA2 HOLDNO2 SKIPNULL2 THEEND PLEASE PUTITHERE NGOTO THEEND20 DESKJET MATRIX WHICHTYPE WHICHTYPE2 PRINTER NUMPAGE ENDPAGE establishes upper case mode. reserves memory address in which to save the records., ADVER.001" ADVER.002" ADVER.003" ADVER.004" ADVER.005" following routine gives user the option of choosing to QUIT, pressq 1 to enter new questions, or pressing 2 to retrieve, print or alter records. coming to this point, from any other routine in the program, will null the values of all strings, via the CLEAR command.i RGTESTS.MEN" routine comes here when user selects 1, on the menu, to enter new questions.e TESTFILL.000 rems for the T1 through T12 labels.e data is typed, and enter is pressed. T1$ thru T12$ values are established, as are the RDT1 thru RDT12 string values. If H is pressed the routine will, access the HELP screens, and then return to the point of origin. If BU is, pressed, the cursor backs up 1 line, to the 1st previous line that deals with the specific question type selected. If N is typed, you route back to the screen where you entered the Retrieval criteria. If S is typed you will access the save options menu. The 1st 3 lines can not be left blank, and a routinec is established that both prevents this and warns the user. Pressing Q will Quit, pressing M accesses the main Menu, and SPACE & ENTER will void a line of any previously existing data, with the exception of lines 1, 2, and 3. If the user leaves the screen by N, M, or Q, prior to saving the data with S, then it is as though the user had never accessed the screen in the first place. Pressing BU, to back up 1 line at a time, or press ing S or H, in no way affects anyn data that might previously have existed on the line where there commands were given. RECORD # TOO LONG __________ NEED NAME" __________ NEED NAME" __________ TRUE AND FALSE!" MULTIPLE CHOICE! FILL IN THE BLANKS!" TOO LONG ______________________________________________________________________ " ________________________________________________________________________ TRUE AND FALSE!" MULTIPLE CHOICE! FILL IN THE BLANKS!" RECORD # TOO LONG ________________________________________________________________________ ________________________________________________________________________ TOO LONG ________________________________________________________________________ ________________________________________________________________________ TOO LONG ____________________ " ____________________ TOO LONG ____________________ " ____________________ TOO LONG ____________________ " ____________________ TOO LONG ___ TOO LONG ____________________ " ____________________ TOO LONG ____________________ " ____________________ TOO LONG ____________________ " ____________________ prints save options menu to the screen. S = SAVE - R = REDO Q = QUIT - M = MENU allows user to select Q, M, or S from the save menu.t next 2 lines erases the save menu options from the screen. routes cursor back to 1st line,s with no change in the text on the screen routine routes here when retrieving, and the user then enters the identification (retrieval criteria), for which it will search. RETRIEVE.001 the temp1 simply is used to give the correct length to the retrieval criteria, so that it can accurately compare to the length of the retrieved string, toi to which it will be compared.p TEMP1"d TEMP1"d gives value of N1$ to ID2$, because the value of NN1$ will be cleared in the next line because of the CLOSE statement. TESTS.REC"d establishes a length for max characters allowed in the field for the record. ? gives a value to UNKNOWN$ so that it can be used to control routines correctly, when retrieval was done with the ? entry. routes back here to continue to search when CODE% has been given a new value, as the result of pressing the arrow keys, etc., not as a result of accessing the NEXT CODE% phrase below. THIS DATA BASE NAME COULD NOT BE FOUND IN THE FILE routes back to continue searching for matching records.l establishes a value for HOLD% that is equal to CODE%, which, in this case, is the CODE% value that identifies the last legitimate record number that was found to match the retrieval criteria. Then when the CODE% has been changed, etc, duringv searching, etc, you can revert the active CODE% back to the last legitimate record displayed, by giving CODE% the value of HOLD%. DISPLAY.001" the following lines give the values of the retrieved F strings, to thee normal operational strings of T and RDT, for each of the data input lines.e then they establish a color, and print these values to the display.001 screen.l next 2 lines alter the value of the QNO!, each time the routine routes through here. the value of QNO! is the successive numbering of the records that are retrievable, for a given T1$ retrieval criteria. gives a starting value to the QN0! next line prints record number to top area of screen, when altering.Q next line prints ALL RECORDS to screen, if retieval criteria is ?, which makes UNKNOWN$ = "1", and skipts the normal printing of the T1$ value. FOR ALL RECORDS" next line prints the normal value of the T1$ to the screen, when retrieval has not been via the ? for the retrieval criteria. prints the identification string on the correct line, when altering a record. following lines take the F$ values (saved strings), and converts them, bya removing the blanks. In this manner they can be more easily handled., TRUE AND FALSE!" MULTIPLE CHOICE! FILL IN THE BLANKS!" when user is altering, the program uses the display commands again. but then routes back to the 1st line of the screen, instead of terminating at the COMMANDS point. the point in the program where the user chooses to browse with arrows,a press N, M, P, A, or Q, or C to access the alteration mode, or press # to makee their final page # print, if they were printing with the P key, selectively.k routes to print routine, automatically, when printing with the A key, so that all records, that match the retrieval criteria, will print in succession.h DONE! TYPE # TO NUMBER PAGE" TEST COMPLETED! RETURN TO " MENU , IF PRINTING MORE! " ENTER CLEARS THIS PROMPT! " " " " " THE PAGE IS NUMBERED!" " ***** RETRIEVAL SCREEN ***** THE PAGE IS NUMBERED!" next line prevents the user from printing ALL, if they used the ? to retrieve.. TO END YOUR TEST & NUMBER THE PAGE, PRESS SHIFT & 3, AND FOLLOW THE PROMPTS! ALTER.000" SAVING DATA the next line prevents the program from closing, and re-opening the file,, when it must obviously already be open, if COM$ = "C". If it was allowed to close, then all string values would be lost. DATA.DATd 12121" TESTS.REC"d return point when code% values have been changed by the COM$ value. limits the question input to 20, in shareware version. the next line stops the file from closing, if user is altering and has just saved. it also gives the value of F1$ ( the retrievable string) the value of ID2$, just in case the user changed the retrievable string, during their alterations. This is necessary because otherwise the value of ID2$ (for the existing code%), would not match the altered value for F1$, which was just saved, causing the computer to lockup. DATA SAVED following line null all data strings, except for T1$, T2$ and T3$, BLOADS the testfill.000 screen, re-inserts the string data for T1, T2, and T4, and then returns the cursor to the T4 location, where the user can immediately start typing a new question, or they can BACKUP, if they desire to change the question type, subject data indicationy or the indentification name or number, etc.e TESTFILL.000 quits program and returns to DOS. alerts user to printer being off line.T CHECK PRINTER " routes here when 20 questions have been entered in shareware version.r SHARWARE.001 routes here so display address screen, once 20 questions have beenh entered, and the 1st sharware alert screen has been displayed, in shareware version. SHARWARE.002 routes to error routine if printer is off line, for some reason. see skipspaces skips the printing of 3 blank lines, if a pages main header has already been printed. the routine resets, when a new page is started. TRUE AND FALSE QUESTIONS !" DATA: see skipheader3 " MULTIPLE CHOICE QUESTIONS !" DATA: see skipheader3 " see skipline4 A - " B - " C - " see skipline4 FILL IN THE BLANKS QUESTIONS !" DATA: skips the printing of a new header, if the question type is the same as the previous one was. next 2 lines controls the positioning of the print for the question,, so that another space is provided when the NO! reaches 10. this linesn up the text on the page, so that it is even.O " comes here, skipping the above line, if second line of the question is blank. this prevents the printing of an empty line. goes to auto-advance routine, when the 56th or 49th line has been reached. depending on printer type routes back in program toe a point where it will continue to search for records matching the retrievalt criteria, and print them. The routine now has a value for CODE% that is onet greater than when it arrived at this line. routes back in program to a point where the computer will await another command, to print a different record, browse, etc. auto-advances the page, prints the page number, and positions the page ready for data from the next questions.n QUESTIONS - PAGE #" OF TEST - QUESTIONS - PAGE #" OF TEST - QUESTIONS - PAGE #" OF TEST - routine to display the 2 help screens, and then return to the point of origin, where it displays the same screen, replaces all data, and puts the cursor on the line that was the point of origin.a HELP.000 HELP.001 TESTFILL.000 TRUE AND FALSE!" MULTIPLE CHOICE! FILL IN THE BLANKS!" nulls the strings that no longer apply to a chosen question type and reprints the dashes. ____________________ ____________________ ____________________ ____________________ ____________________ ____________________ routine to place a number at the bottom of the page, when a person is printing with the A key, and ends up in the middle of a page.p QUESTIONS - PAGE #" OF TEST - allows user to choose whether or not to print an answer page for the last question page printed. TEST COPIES PRINTED: " WOULD YOU LIKE ANOTHER COPY OF THE TEST " QUESTIONS THAT YOU JUST PRINTED Y/N? " next 2 lines erases the answer page options from the screen. " " " ANSWER COPIES PRINTED: PRINT THIS PAGES ANSWER SHEET Y/N? " IF NOT, THIS PAGES ANSWER DATA IS LOST! " next 2 lines erases the answer page options from the screen. " " " routine to convert all strings AA through BBB to VT strings again. see skipspaces skips the printing of 3 blank lines, if a pages main header has already been printed. the routine resets, when a new page is started. TRUE AND FALSE ANSWERS ! DATA: see skipheader32 MULTIPLE CHOICE ANSWERS !" DATA: see skipheader32 see skipline42 A - B - C - see skipline42k FILL IN THE BLANKS ANSWERS ! DATA: skips the printing of a new header, if the question type is the same as the previous one was. next 2 lines controls the positioning of the print for the question, so that another space is provided when the NO! reaches 10. this lines up the text on the page, so that it is even.O " comes here, skipping the above line, if second line of the question is blank.i this prevents the printing of an empty line. ( ) - (" ) - (" adds 1 to value of timesthrough! each pass, to accomodate the conversion of the A through L strings to T strings.L ANSWERS FOR PAGE # OF TEST - " RESET.000" TOO LONG __________ " " " THIS QUESTION IS TOO LONG !! RE-ENTER AFTER ANSWERS PROMPT! ANSWER COPIES PRINTED: DO YOU WANT TO PRINT ANOTHER COPY OF THIS PAGES ANSWERS Y/N? " PICKPRTR.000